home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / blrmu13.zip / MAGENTA.ASM < prev    next >
Assembly Source File  |  1991-04-14  |  2KB  |  65 lines
  1. page ,132
  2. title magenta ( set colors to wht on magenta ) 04/14/91 - 06:45 pm
  3. ;
  4. code     segment para public 'code'
  5. ;
  6.          org   256
  7. ;
  8.          assume cs:code
  9. ;
  10. magenta   proc  far
  11. ;
  12. ;*-----------------------
  13. ;*   set border color
  14. ;*-----------------------
  15. sbc:
  16.          mov   ah,11                   ; set color palette fct
  17.          mov   bh,0                    ; text mode
  18.          mov   bl,5                    ; border = magenta
  19.          int   16
  20. ;*-------------------------
  21. ;*  set cursor position
  22. ;*-------------------------
  23. scp:
  24.          mov   ah,2                    ; set cursor position fct
  25.          mov   bh,0                    ; page 0
  26.          mov   dh,0                    ; row 0
  27.          mov   dl,0                    ; col 0
  28.          int   16
  29. ;*----------------------------------
  30. ;*  write character and attribute
  31. ;*----------------------------------
  32. wcaa:
  33.          mov   ah,9                    ; write char and attr fct
  34.          mov   al,32                   ; char = space
  35.          mov   bh,0                    ; page 0
  36.          mov   bl,95     ; x'5f'       ; attr = magenta back, white crsr
  37.          mov   cx,2000                 ; 25 * 80 = full screen
  38.          int   16
  39. ;
  40. exit:    mov   al,0                    ; ret code = 0
  41.          mov   ah,76                   ; term with ret code
  42.          int   33
  43. ;
  44. magenta   endp
  45. ;
  46. code     ends
  47. ;
  48.          end   magenta
  49. ;
  50. ;---------------------------------------
  51. ;  Color Chart
  52. ;---------------------------------------
  53. ;
  54. ;  Black    = 00   Light Black    = 08
  55. ;  Blue     = 01   Light Blue     = 09
  56. ;  Green    = 02   Light Green    = 10
  57. ;  Cyan     = 03   Light Cyan     = 11
  58. ;  Red      = 04   Light Red      = 12
  59. ;  Magenta  = 05   Light Magenta  = 13
  60. ;  Brown    = 06   Light Brown    = 14     ( Yellow )
  61. ;  White    = 07   Light White    = 15
  62. ;
  63. ;----------------------------------------
  64. ;
  65.